home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 32 / mailadd.cmd < prev    next >
Encoding:
Text File  |  1986-07-17  |  3.4 KB  |  130 lines
  1. SET TALK OFF
  2. * 
  3. * MAILADD.PRG 
  4. * 2-22-86
  5. *
  6. * ADDS A RECORD TO MAILLIST.DBF
  7. *******
  8. * FILES
  9. *******
  10. * 
  11. USE MAILLIST INDEX MAILNAME,MAILCOMP,MAILZIP
  12. DO WHILE T
  13. *************
  14. *DEFINE VARIABLES
  15. *************
  16. STORE T TO Y.RECBAD  | MAIN LOOP
  17. *
  18. STORE T TO Y.NOANSWER | CHECK ANSWER LOOPS
  19. STORE ' ' TO Y.OK | CHECKANSWER VARIABLE
  20. *
  21. STORE 1 TO Y.READNO | GET NUMBER OFFSET FOR READ 
  22. X.ADD = T | THIS IS THE ADD PROGRAM
  23. *
  24. STORE SPACE(10) TO Y.FIRST_NAME
  25. STORE SPACE(20) TO Y.LAST_NAME,Y.CITY
  26. STORE SPACE(40) TO Y.COMPANY,Y.ADDRESS1,Y.ADDRESS2
  27. STORE SPACE(2) TO Y.STATE
  28. STORE SPACE(5) TO Y.ZIP
  29. STORE SPACE(12) TO Y.PHONE
  30. *
  31. ERASE
  32. DO WHILE Y.RECBAD
  33.     ************
  34.     * PAINT SCREEN
  35.     ************
  36.     ERASE
  37.     &SAYNORMAL
  38.     @ 00,00 SAY CENTER('MAIL LIST ADD RECORD',79)
  39.     @ 01,00 SAY CENTER('F2=HELP  F3=QUIT  F7=SAVE  F8=ERASE',79)
  40.     @ 05,00 SAY 'NAME     :' GET Y.FIRST_NAME PICTURE DUPCHAR(33,10)
  41.     @ ROW(),COL()+5 SAY 'LAST NAME :' GET Y.LAST_NAME PICTURE DUPCHAR(33,20)
  42.     @ 07,00 SAY 'COMPANY  :' GET Y.COMPANY PICTURE DUPCHAR(33,40)
  43.     @ 09,00 SAY 'ADDRESS1 :' GET Y.ADDRESS1 PICTURE DUPCHAR(33,40)
  44.     @ 11,00 SAY 'ADDRESS2 :' GET Y.ADDRESS2 PICTURE DUPCHAR(33,40)
  45.     @ 13,00 SAY 'CITY     :' GET Y.CITY PICTURE DUPCHAR(33,20)
  46.     @ ROW(),COL()+3 SAY 'STATE :' GET Y.STATE PICTURE "UU" GETFILE MAILSTCK
  47.     @ ROW(),COL()+3 SAY 'ZIP :' GET Y.ZIP PICTURE "#####"
  48.     @ 15,00 SAY 'PHONE    :' GET Y.PHONE PICTURE "###-###-####"
  49.     READ GETNO Y.READNO
  50.     @ 24,00 
  51.  
  52. *****************
  53. * ADDRESS FUNCTION KEY SECTION 
  54. * F2=HELP  F3=QUIT  F7=SAVE  F8=ERASE
  55. *****************
  56. DO CASE
  57. **********
  58. * HELP
  59. **********
  60.    CASE LASTKEY()=8 OR LASTKEY()=188 | HELP ^H OR F2
  61.    Y.READNO = GETNO()
  62.    DO MAILADDH
  63.    LOOP
  64. **********
  65. *QUIT
  66. **********
  67.    CASE LASTKEY() = 17 .OR. LASTKEY() = 27 .OR. LASTKEY() = 189 | QUIT ^Q OR F3
  68.       CLOSE ALL
  69.       RETURN
  70. **********
  71. * VALIDATE
  72. **********
  73.    CASE LASTKEY() = 19 .OR. LASTKEY() = 193 | SAVE SECTION ^S OR F7 
  74.          STORE F TO Y.RECBAD
  75.          LOOP
  76. **********
  77. * ERASE SCREEN
  78. **********
  79.    CASE LASTKEY() = 5 OR LASTKEY() = 194 | ERASE SCREEN ^E OR F8
  80.       DO MAILER
  81.       Y.READNO = 1
  82. **********
  83. * END CASES
  84. **********
  85.    OTHERWISE
  86. *************
  87. * ADDRESS VALADATION
  88. *************
  89.       STORE T TO Y.NOANSWER
  90.       STORE 'Y' TO Y.OK
  91.       DO WHILE Y.NOANSWER
  92.          @ 24,00 SAY 'IS ADDRESS OK (Y OR N) ?'   
  93.          @ 24,26 GET Y.OK
  94.          READ
  95.          IF LASTKEY() = 17 .OR. LASTKEY() = 27 .OR. LASTKEY() = 189
  96.             CLOSE ALL
  97.             RETURN
  98.          ENDIF
  99.          DO CASE
  100.              CASE !(Y.OK) = 'Y'
  101.                 STORE F TO Y.RECBAD
  102.                 STORE F TO Y.NOANSWER
  103.                 STORE ' ' TO Y.OK
  104.                 @ 24,00
  105.              CASE !(Y.OK) = 'N'
  106.                STORE T TO Y.ADDRBAD
  107.                STORE F TO Y.NOANSWER
  108.                STORE ' ' TO Y.OK
  109.                @ 24,00
  110.                Y.READNO = 1
  111.             OTHERWISE
  112.                BEEP
  113.                STORE T TO Y.NOANSWER
  114.                STORE ' ' TO Y.OK
  115.                @ 24,00
  116.         ENDCASE
  117.     ENDDO
  118.     STORE T TO Y.NOANSWER
  119.   ENDCASE
  120. ENDDO | WHILE RECORD BAD
  121.    ************
  122.    * WRITE RECORD
  123.    ************
  124.    APPEND BLANK
  125.    REPLACE FIRST_NAME WITH Y.FIRST_NAME,LAST_NAME WITH Y.LAST_NAME
  126.    REPLACE COMPANY WITH Y.COMPANY, ADDRESS1 WITH Y.ADDRESS1
  127.    REPLACE ADDRESS2 WITH Y.ADDRESS2, CITY WITH Y.CITY, ZIP WITH Y.ZIP
  128.    REPLACE STATE WITH Y.STATE, PHONE WITH Y.PHONE
  129. ENDDO | WHILE T
  130.